home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / dir / simplefind.lha / SimpleFind / ARexx / saveentries.rexx next >
Encoding:
OS/2 REXX Batch file  |  1998-03-25  |  516 b   |  33 lines
  1. /* $VER: savelist.rexx 1.0 (25.03.98)
  2.  * Saves the result into a file
  3.  */
  4.  
  5. options results
  6.  
  7. sfportname = 'SIMPLEFIND.1'
  8.  
  9. /* Check if SimpleFind is loaded */
  10.  
  11. if ~show('p',sfportname) then do
  12.    say "SimpleFind isn't running"
  13.    end
  14.  
  15. address value sfportname
  16.  
  17. getmaxentries
  18. entries = result
  19. setentrypos 0
  20.  
  21. open(outfile,'RAM:test.list','W')
  22.  
  23. do for entries
  24.   /* get current entry and move cursor to the next entry */
  25.   getentrynext
  26.  
  27.   /* add the entry to the list */
  28.   writeln(outfile,entry.name)
  29. end
  30.  
  31. close(outfile)
  32.  
  33.